|
Inventor VBA : Bauteile ersetzen
rtend12 am 04.09.2006 um 22:53 Uhr (0)
Hallo RoccoRalle,erklär doch nochmal was du durch was ersetzen willst.Den Code mußt du natürlich noch an dein Vorhaben anpassen.Alle Dateien zu selektieren wird nichts bringen, oder willst du alle Dateien durch die gleiche ersetzen?die raplace-methode ersetzt das gewählte Modell durch das Modell mit dem Pfad oname. Der Zweite Parameter gibt an, ob alle Vorkommnisse in der aktiven Baugruppe erstzt werden sollen.Um Dateien in der Unterbaugruppe zu ersetzen mußt du in die Unterbaugruppe wechseln.Wie übergibst ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteile ersetzen
rtend12 am 06.09.2006 um 22:52 Uhr (0)
Hallo RoccoRalle,du schreibst die Lösung ja schon selber, etwas VB dazu uns schon geht es.Hier ein paar Tips:Code:For Each oOcc In oOccs If Right(oOcc.Definition.Document.FullFileName, 3) = "M8x30 A2.ipt" Then Call oOcc.Replace("M8x30 A4.ipt", True) Exit For End If LoopNextEnd FunctionWenn du noch rekursiv durch deine BG durchgehst, kannst du alle Schrauben ersetzen.GrußReinhard
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteile ersetzen
rtend12 am 01.09.2006 um 14:35 Uhr (0)
Hallo,ersetzen:Code:Dim odoc2 as DocumentSet odoc2 = ThisApplication.ActiveDocumentDim oCompDef As ComponentDefinitionSet oCompDef = odoc2.ComponentDefinitionDim oOccs As ComponentOccurrencesSet oOccs = oCompDef.OccurrencesDim oOcc As ComponentOccurrenceFor Each oOcc In oOccs On Error Resume Nexti = 1 Do While ostr(i) "" If Right(oOcc.Definition.Document.FullFileName, 3) = "iam" And oOcc.Name = ostr(i) Then oDer = oOcc.Definition.Document.FullFileName Call oIPT(oDer) Call oOcc.Repl ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteile ersetzen
rtend12 am 06.09.2006 um 12:34 Uhr (0)
Hallo Rocco,ich verstehe dein Problem nicht wirklich.Du hast eine Baugruppe: BG.iam. Darin ist ein Teil verbaut: Teil.ipt, entspricht Schraube M6x20 DIN 912 A2. Diese Teil hat einen Pfad: D:xxxTeil.ipt.Jetzt möchtest du aus Schraube M6x20 DIN 912 A2 Schraube M6x20 DIN 912 A4 machen und unter D:xxxTeil.ipt abspeichern?Erklär dein Problem mal mit einem Beispiel. Struktur der BG und Pfad der Dateien?GrußReinhard
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : abgeleitete Komponente tauschen
rtend12 am 03.06.2008 um 20:50 Uhr (0)
Hallo Udo,ja es geht, Modelle in Modellen oder Modelle in Zeichnungen zu ersetzen.Datei öffnen - Aktion wählen - ersetzenGrußReinhard
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Makro erstellen
rtend12 am 17.02.2009 um 20:27 Uhr (0)
Hallo wernerohnew,was machst Du mit diesen Listen? Welche Informationen müssen in die Liste? Welche Optionen wählst Du zum und-color: #FFFF99'>Suchen?GrußReinhard
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Problem mit Dateinamen der Bibliotheksteile und PDM-System
rtend12 am 18.09.2006 um 23:31 Uhr (0)
Hallo figgi,machbar ist das schon, man muß aber die Referenzen, die auf die ursprüngliche Datei verweisen, neu setzen.Mal noch eine grundsätzliche Frage:Habt ihr keine eindeutigen Materialnummern bei euch im Betrieb?Ich gehe bei Teilen aus dem Inhaltscenter grundsätzlich so vor:- Teil und-color: #FFFF99'>suchen- Kopie speichern unter, gleich mit der bereits vorhandenen oder neuen Materialnummer- Displaynamen zurücksetzen, so dass beim nächsten Kopieren der Datei mit neuem Namen der Displayname sich anpasst.GrußReinhard
|
| In das Form Inventor VBA wechseln |
